A Categorical Treatment of Ornaments 
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Ornaments aim at taming the multiplication of special-purpose datatypes 
in dependently-typed theory. In its original form, the definition of ornaments 
is tied to a particular universe of datatypes. Being a type theoretic object, 
constructions on ornaments are typically explained through an operational 
narrative. This overbearing concreteness calls for an abstract model of orna- 
ments. 

In this paper, we give a categorical model of ornaments. As a necessary first 
step, we abstract the universe of datatypes using the theory of polynomial 
functors. We are then able to characterize ornaments as cartesian morphisms 
between polynomial functors. We thus gain access to powerful mathematical 
tools that shall help us understand and develop ornaments. 

We shall also illustrate the adequacy of our model. Firstly, we rephrase 
the standard ornamental constructions into our framework. Thanks to its 
conciseness, this process gives us a deeper understanding of the structures 
at play. Secondly, we develop new ornamental constructions, by translating 
categorical structures into type theoretic artifacts. 

The theory of inductive t ypes is well understood and reduces to the study of initial al- 
gebras [Cogu en et al. . 1975 *] in some appropriate category. A datatype definition is there- 
fore abstracted away as a functor that admits a least fixed p oint. This naturally leads to 
the study of polynomial functors [Ga mbino and Kock . 201Cll |. a class of functors that all 
admit a fixed point construction. This class of functors has been discovered and studied 
under many guises. In type the o ry, th e y were introduced by Ma r tin-Lo f under the name 
well-founded trees Martin-Lof . 1984 . Moerdiik and Palmgren . 200Clll . or \y - types for 
short. Containers [Abbott . 20031 ] and their indexed counterparts Morris . 2007 1 generalize 
these definitions to a fibrational framework. Polynomial functors Gambino and Hvland , 
20041 . iGambino and Kockl . 120101 ] are the category theorists' take on containers, presented 
this time in a locally cartesian-closed setting. In this context, polynomial functors have 
been used to categorify concepts from operad theory, among other applications. 



In pra ctice, there is no such unifying reasoning framework: in systems such as Coq The Cog Development 
or Agda |Norell . 2007], datatypes are purely syntactic artifacts. A piece of software, the 
positivity checker, is responsible for checking that the definition entered by the user is 
admissible, i.e. does not introduce a paradox. Here again, the power of the positiv- 
ity checker depends on the bravery of its implementers: for instance, Coq's positivity 
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checker is allegedly simple, therefore safer, but rather restrictive. On the other hand, 
Agda's positivity checker is more powerful, hence more complex, but also less trusted. 
Also, the more powerful the positivity checker, the harder it is to relate the datatype 
definitions to some functorial model. 



An alternative presentation of inductive t ypes is through a universe construction jMartin-Lof 



1984I . iDvbierl . Il99ll . IChapman et~all . l2O10l |. The idea is to reflect the grammar of poly 



nomial functors into the type theory itself. The syntactic artifa ct corresponding to a 
datatype translation is therefore merely elaborated to this grammar [Dagand and McBride , 
2013( 1 . The semantics of these definitions is therefore given by translation to the universe 



of inductive types. In such framework, we can reconcile theory and practice by simply 
connecting the universe of datatypes with the polynomial functor model. 

Having internalized inductive types, we can formally manipul ate them and, f or ex- 
ample, create new ones from old ones. The notion of ornament [McBridd . l2013l | is an 
illustration of this approach. Ornaments arise from the realization that inductive fami- 
lies can be understood as the combination of a data- structure together with a data-logic. 
The structure captures the dynamic, operational behavior expected from the datatype. 
It corresponds to, say, the choice between a list or a binary tree, which is determined 
by performance considerations. The logic, on the other hand, governs the static in- 
variants of the datatype. For example, by indexing a list by its length, thus obtaining 
vectors, we sugar a layer of logic on top of list. Hence, while taking the tail of the list is 
necessarily a partial function, we can implement the tail of vectors indexed by strictly 
positive number: the indexing provides some extra logical information and thus inform 
our implementation. 

In dependent type theory, logic is purpose: when solving a problem, we want to bake 
the problem's invariants into the datatype we manipulate. Doing so, our code is correct 
by construction. Hence, the same data-structure will be used for different purposes and 
will therefore be sugared with as many logics: we assist to a multiplication of datatypes, 
each built upon the same structure. This hinders any form of code reuse and makes 
development of libraries next to pointless: every task requires us to duplicate entire 
libraries for our special-purpose datatypes. 

The second author introduced ornaments to tame this issue. Ornaments organize 
datatypes by their structure: given a datatype, an ornament gives an effective recipe to 
extend - introducing more logical information - and refine - providing a more precise 
indexing - the initial datatype. Applying that recipe gives birth to a new datatype 
that shares the same structure as the original datatype. Hence, ornaments let us evolve 
datatypes with some spec ial-purpose logic without sev ering the structural ties between 
them. In an earlier work Dagand and McBride . 2012l |. we have shown how that infor- 
mation can be used to regain code reuse and structure libraries. 

The initial presentation o f ornament and its subsequent incarnation McBride, 20131 . 



Dagand and McBridd . l2012l | are however very syntactic and strongly tied to their re- 



spective universe of datatypes. We are concerned that its syntactic nature obscures the 
rather simple intuition governing these definitions. In this paper, we give a semantic 
account of ornaments, thus exhibiting the underlying structure of our definitions. To do 
so, we adopt a categorical approach and connect ornaments with initial algebras. Our 
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contributions are the following: 



In Section [51 we formalize the connection between a universe-based presentation 
of datatypes and the theory of polynomial functors. In particular, we prove the 
equivalence between the functors captured by our universe and the polynomial 
functors. This key result lets us move seamlessly from our concrete presentation of 
datatypes to the more abstract, and hence more convenient, polynomial functors. 

In Section [3l we give a categorical presentation of ornaments as cartesian mor- 
phisms of polynomial functors. This equivalence sheds some light on the syntactic 
definition of ornaments. It also connects ornaments to a mathematical object that 
has been widely studied: we can at last organize our universe o f datatypes and 
ornaments on them into a category - in fact a framed bicategory Shulman . 2009l | 



- and start looking for categorical structures that would translate into interesting 
type-theoretic objects. 

• In Sectional we investigate the categorical structure of ornaments. The contribu- 
tion here is twofold. On one hand, we translate the type-theoretic constructions 

- such as the ornamental algebra and the algebraic ornament - into the categori- 
cal lingo and uncover the building blocks out of which they were carved out. On 
the other hand, we interpret the mathematical properties of ornaments into type- 
theory - such as the pullback of ornaments and the ornamentation of derivative - 
to discover meaningful software artifacts that were previously unknown. 

Being at the interface between type theory and category theory, this paper targets both 
communities. To the type theorist, we offer a more semantical account of ornaments and 
we use the intuition thus gained to introduce new type theoretic constructions. Func- 
tional programmers of the non-dependent kind will find a wealth of examples that should 
help them grasp the more abstract concepts, both type theoretic and category theoretic. 
To the category theorist, we present a type theory, i.e. a programming language, that 
offers an interesting playground for catego rical ideas. In that sense, our ap proach is sim- 



ilar to the ideas developed in the Charity Cockett and Fukushimal . Il992l | programming 



language, which we might summarize as categorically structured programming. However, 
the means to achieve this aim are different. For practical reasons, we do not work on 
categorical objects directly: instead, we reify these concepts through universes, hence 
representing the categorical tools with computational objects. Ornaments are merely an 
instance of that interplay between a categorical concept - cartesian morphism of polyno- 
mial functor - and an effective, type theoretic presentation - the universe of ornaments. 



1 Categorical Toolkit 

In this section, we recall a few definitions and results from category theory that will be 
used throughout this paper. None of these results are new ~ most of them are folklore 
- we shall therefore not dwell on the details. However, to help readers not familiar with 
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these tools, we shall illustrate these notions with examples, thus providing an intuition 
of the concepts at play. 



1.1 Locally cartesian-closed categories 

Locally cartesian-closed categories were introduced by Seelv 19831 ] to give a categorical 



model of (extensional) dependent type theory. A key idea of that presentation is the use 
of adjunctions to model H-types and E-types. 

Definition 1 (Locally cartesian-closed category (LCCC)). A locally cartesian-closed 
category is a category £ that is pullback complete and such that, for f : £{X,Y), each 
base change functor Ay : f/y — )• Six-, defined by pullback along /, has a right adjoint 

n/. 

Throughout this paper, we work in a locally cartesian-closed category £ with a ter- 
minal object 1. An object f-.E^Iin the slice f// can be thought of as an /-indexed 
set, which we shall informally denote using a set comprehension notation {Ei \ i G /}, 
where Ei can be understood as the inverse image of / at i, or equivalently a fibre of the 
discrete fibration /. 

By construction, the base change functor has a left adjoint = / o _. We therefore 
have the following adjunctions: 

Using a set theoretic notation, the base change functor writes as reindexing by /: 

A/ : £/B S/A 

Af {Eb\beB}^ {Efa\aeA} 

While the left and right adjoints correspond to the following definitions: 

^/ ■ ^/A £/B : £/^ £/B 

{Ea\aeA}^ {EaeA, Ea\beB} Uf{Ea\aeA}^ {UaeA, Ea\beB} 

Where ^ and Yl respectively represent the (set theoretic) disjoi nt union and cartesian 



prod uct. Details of this construction can be found elsewhere jMac Lane and Moerdiik . 
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The internal lang uage of £ corresponds to an extensional type theory, up to bureau- 
cracy (C urien . 19931 ]. This type theory comprises a unit type 1, S-types, H-types, and 



equality is extensional. Syntactically, this type theory is specified by the following judg- 
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ments: 



Formation rules: 



Introduction rules: 



r h ]1:Set 

r h 5:Set 
r;x:5 h T:Set 
Th {x:S)x T:Set 



r h *:! 



r h a:S 
r h b:T[a/x] 
rh (a, 6):(a;:5) x 



Elimination rules: 



rhff:(a::5) xT 
r h TTo p : 5 

Th p:{x:S) xT 
r h 7rip:T[7rop/x] 



rh5:SET r;x:5hr:SET 
r h (x:5) ^r:SET 



r h 5:Set 
r;x:5ht:T 
r h \sx.t:{x:S)^T 



rh/:(x:5)^2 
rhg:5 

r h /s:r[s/xj 



We chose to work in an extensional model for simplicity. However, all the constructions 
presented in this paper have been modelled in Agda, an intuitionistic type theory. 

1.2 Polynomials and polynomial functors 

Polynomials Gambino and Hvland . 2004 . Gambino and Kock . 20ld ] provide a categor- 



ical model for indexed families [Dvbierl . Il99ll | in any LCCC £. Polynomials themselves 
are small, diagrammatic objects that admits a rich categorical structure. They are 
then interpreted as strong functors - the polynomial functors - between slices of f . In 
this section, we shall ill ustrate the categorical definiti o ns with the co rresponding notion 
of (indexed) container Hancock and Hvvernat . 2006 . Morrigl . 2007], an incarnation of 
polynomials in the internal language Set. 

Definition 2 (Polynomial ( Gambino and Kock . 2O10l ]. 1.4)). A polynomial is the data 
of 3 morphisms f : B A, s:B ^ I, and t:A—^Jm£. Conventionally, a polynomial 
is diagrammatically represented as: 



B 



/, 



A 



J 



Example 1 (Container). In type theory, it is more convenient to work with predicates 
rather than arrows. Hence, inverting the arrow i : A — > J, we obtain a predicate S : 
J —7- Set - called the set of shapes. Similarly, inverting f : B ^ A, we obtain a 
predicate P : Vj-S j Set - called the set of positions. Finally, the indexing map s 
remains unchanged but, following conventional notation, we rename it n ~ the next index 
function. We obtain the following definition: 




Note that, to remove clutter, we universally quantify unbound type variables, such as j 
in the definition of P or s in the definition of n. 
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The data of S, P, and n is called a container and is denoted S" <l" P. The set of 
containers ind exed by I and J is deno t ed I C ent / J. Originally, this definition appeared 
in the work of lHancock and HvvernatI 2006l | and was called an interaction structure. It 
was later studied bv iMorrid 2007l | under the name indexed container. Since non- indexed 
containers are merely (indexed) containers indexed by the unit set 1, we shall drop the 
prefix "indexed" and simply call these objects containers. 

Example 2 (Container: natural number). Natural numbers are described by the sig- 
nature functor X 1 + X . In container lingo, this corresponds to two shapes, one to 
represent the case, the other to represent the sue. In term of position, no position is 
offered on the shape, while one position is offered on the sue shape. Note that the 
signature functor is unindexed: the container is therefore indexed by the unit set and 
the next index function is trivial. 



NatCont 



''SNat(*:l) : Set 

SNat * H> 1 + 1 

PNat (s/i:SNat*) : Set 
PNat (inji *) ^0 

PNat (injr*) ^ 1 



r^Nat {pos:P Nat sh) : 

kriNat POS ^ 
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Example 3 (Container: list). The signature functor describing a list of parameter A is 
X 1 + A X X . Note the similarity with natural numbers. In term of container, there 
are 1 + ^ shapes, i.e. either nil or cons of some a: A. There are no subsequent position 
for the nil shape, and there is only one position for the cons shapes. Again, indices are 
trivial, for this datatype is not indexed. 

SList(*:l) : Set 
Siist * 1 + A 



ListContyi = < 



Pust (s^:SList *) 
Pust (inj; *) 
Pust (injr a) 



: Set 

^ (D 
^ 1 



nustipos-.Pustsh) : 1 
knust pos ^ * 

Example 4 (Container: vector). To give an example of an indexed datatype, we consider 
vectors, i.e. lists indexed by their length. The signature functor of vectors is given by: 

{Xn I n G Nat} ^ {n = 0\ ne Nat} + {A x X„_i | n G Nat*} 

Where the nil case requires the length n to be 0, while the cons case is only available for 
an index n strictly greater than and recurses on X at index n — 1. 
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To represent this signature with a container, we define: 

'Svec(n:Nat) : Set 

Svec l-^' 1 

Svec (sue n) A 



VecCont^ = 



Pvec Nat) (s/i: Svec ^) : Set 

Pvec * ^ 

Pvec (sue n) a i-> 1 



nvec ('^ • Nat) {sh : Svec {pos : Pvec sh) : Nat 
,nvec (sue n) a * i— )■ n 

That is, at index 0, there is only the nil shape while index sue n offers a choice of a:^ 
shapes. As for natural numbers and lists, the nil shape has no subsequent position while 
the sue shapes have one position. It is necessary to compute the next index only when 
the input index is suen, in which case the next index is n. 

Definition 3 (Polynomial morphism ( Gambino and Kock . 201Cl| |. 3.8)). A morphism 



from F:I ^ B ^ A J to G:K ^ D 
to the choice of pullback - by the diagram: 



C — y L is uniquely represented - up 




Example 5 (Container morphism). Let u: I K and v : J ^ L. A morphism from a 
container 5" <" P to a container 5" <" P' framed by u and v is given by two functions 
and a coherence condition: 

So^S'ivo) 
P' (s sh) ^P sh 
u {n pos) = n' (p pos) 

Remark that s and p correspond exactly to their diagrammatic counterparts, respectively 
a and uj, while the coherence condition q captures the commutativity of the left square. 
Commutativity of the right square is ensured by construction, since we reindex S' by v 
in the definition of s. 

A container morphism, i.e. the data s, p, and q, is denoted s Mp (leaving implicit the 
coherence condition). The hom-set of morphisms from 5" <l" P to 5' <" P' framed by u 
and V is denoted 5 <" P^S' P' . 
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Definition 4 (Polynomial functor ( jGambino and Kockl . |2010(], 1.4)). We interpret a 
polynomial F:I i 

slices of E with the following construction: 



B — ^ A J into a functor, conventionally denoted Pp, between 



/A 



£ 



/B 



£ 



/J 



A functor is called polynomial if it is isomorphic to the interpretation of a polynomial. 

Unfolding this definition in the internal language, we obtain the following, more palat- 
able definition: 

PF{Xi\iei}={Y, n ^sb\j^j} 

hence justifying the name polynomial functor: a polynomial interprets into an A-indexed 
sum of monomials X taken at some exponent b € Ba- 

Example 6 (Interpretation of container). Following the definition of interpretation of 
polynomials in the internal language, it is easy to define the interpretation of containers. 
Hence, a container is interpreted as, first, a choice (S-type) of shape ; then, for each 
(Il-type) position, a variable X taken at the next index n for that position: 

[(C:ICont/ J)lcont (X:/^Set) : J^Set 
[5^"Plcont^ ^ \j.{sh:Sj)x{{pos:Psh)^X{npos)) 

We leave it to the reader to verify that the interpretation of NatCont (Example [2]) , 
ListCont (Example [3]) , and VecCont (Example H]) are indeed equivalent to the signature 
functors we aimed at representing. 

We have seen that polynomials interpret to (polynomial) functors. We therefore ex- 
pect morphisms of polynomials to interpret to natural transformations between these 
functors. 

Definition 5 (Interpretation of polynomial morphism ( jGambino and Kock . 2010], 2.1 
and 2.7)). For the morphism of polynomials given in Definition [3l we construct the 
following natural transformation: 
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The diagrammatic construction of the interpretation on morphism is perhaps intimi- 
dating. Its actual simphcity is revealed by containers, in the internal language. 

Example 7 (Interpretation of container morphism). A morphism from 5* <]" P to 5' P' 
simply maps shapes S to shapes S' covariantly using s and maps positions P' to positions 
P contravariantly: 

l{m:S P^S 

V 



P')lcont {X:I^ Set) {xs : |5 Pjcont X) 

V 

\cont X {sh,pos) {ssh,posop) 



IS' Plcont X 



Note that, thinking of X as being parametrically quantified, there is not much choice 
anyway: the shapes are in a covariant position while positions are on the left on an 
arrow, i.e. contravariant position. 



Hancock and Hvvernat 2006l | present these morphisms as defining a (constructive) 
simulation relation: having a morphism from C = 5 P to C = S' P' gives 
you an effective recipe to simulate the behavior of C using C: a choice of shape sh 
in S is translated to a choice of shape in S' through s while the subsequent response 
pos' :P'{s sh) is back-translated through p to a response in P. 

In this paper, we are particularly interested in a sub-class of polynomial morphisms: 
the class of cartesian morphisms. Cartesian morphisms are those morphisms for which 
p is the identity. 



Definition 6 (Cartesian morphism ( Gambino and Kock . 20101 ] . 3.14)). A cartesian 



morphism from F : I < — B 
represented by the diagram: 



A 



J to G:K 



D 



C 



L is uniquely 




Example 8 (Cartesian morphism of containers). A cartesian morphism of containers is 
therefore computationally determined by its operation on shapes, through the function 
s. Besides the coherence condition g, we also have to prove that the positions of the 
domain is indeed obtained by pulling back the target positions along s: 

s: S j ^ S' {v j) 
p: ysh:S.P' {s sh) = P sh 
q : \/sh : S.\/pos : P sh.u (n pos) = n' {p pos) 

A cartesian morphism is denoted s -4^, thus leaving implicit the proof obligations. The 
hom-set of cartesian morphisms from S P to S' <" P' is denoted S <" P^^^S' <" P'. 
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Example 9 (Cartesian morphism: from ListContyi to NatCont). We build a cartesian 
morphism from list to nat by first mapping shapes of ListContyi - defined in Example [3] 
- to shapes of NatCont - defined in Example [2j 

S (s/l; rSust *) : Swat * 

s (mil*) inj;* 
s (injy. a) 1-^ injj, * 

We are then left to check that the set of positions are isomorphic: this is indeed true, 
since, in the nil/0 case, there is no position while, in the cons/sue case, there is only one 
position. The coherence condition is trivially satisfied, since both containers are indexed 
by 1. 

We shall need the following lemma that creates polynomial functors from a cartesian 
natural transformations to a polynomial functor: 



Lemma 1 (Lemma 2.2 Gambino and Kock . 2O10t |). Let Pp'-S/i — > ^/j he a polynomial 



functor. Let Q a functor from Ejj to Ejj. 

If 4>:Q^ Pp is a cartesian natural transformation, then Q is also a polynomial func- 
tor. 

Finally, we shall need the following algebraic characterization of polynomial functors: 



Lemma 2 (Corollary 1.14 Gambino and Kock . 2010l |). The class of polynomial functors 



is the smallest class of functors between slices of £ containing the pullback functors and 
their adjoints, and closed under composition and natural isomorphism. 

1.3 Framed bicategory 

The reader will have noticed that we have resisted the urge of defining a category of 
polynomials and polynomial functors. Such a category can be defined for a given pair of 
indices / and J, with objects being polynomials indexed by / and J (Definition [5]) and 
morphisms (Definition [3]) specialized to the case where u = id :I — )• / and t; = id : J — )• J. 
From there, we are naturally lead to organize polynomials and there indices in a 2- 
category. We define the objects to be the indices, the 1-morphisms between indices / 
and J to be the category of polynomial indexed by I and J. Thus, 2-cells are polynomial 
morphisms between polynomials indexed by / and J. 

However, this fails to capture the fact that indices have a life on their own: it makes 
sense to have morphisms between differently indexed functors, i.e. between different 
slices of £. Indeed, morphisms between indices - the objects - induce 1-morphisms. 
T he 2-categorical pres e ntatio n does not capture this extra power. Following the steps 
of Gambino and Kock 201ol |. we organize polynomials and their functors in a framed 



bicategory [S hulmanl . |2009| ] . We refer the reader to that latter paper for a comprehensive 
presentation of this concept. A framed bicategory is a double category with some more 
structure. We therefore recall the definition of a double category and give a few examples. 
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Definition 7 (Double category). A double category D consists of a category of objects 
Do and a category of morphisms Di, together with structure functors: 




Satisfying the usual axioms of categories relating the left frame L, right frame R, identity 
U, and composition 0. 



Example 10 (Double category PolyFun^ ( Gambino and Kocld . l2010l |. 3.5)). The double 
category Poly Fun ^ is defined as follow: 

• Objects (i.e. objects of Dq): slices £/j 

• Vertical arrows (i.e. morphism of Dq): colift — ^ ^/k^ for u:I^Km£ 

• Horizontal arrows (i.e. objects of Di) with left frame £/j and right frame £/j: 
polynomial functor Pp -.E ji — t- Ejj 

• Squares (i.e. morphisms of Di) with left frame S„ and right frame S^: strong 
natural transformation 6: 



Pf 



/I 



/K 



Pg 



Example 11 (Double category Poly^). The double category Poly^ is defined as follow: 

• Do = Set, i.e. 

— Objects: index set /, J, K,L, . . . 

— Vertical arrows: u:I ^ K, v:J ^ L, ... 

• Horizontal arrows (i.e. objects of Di) with left frame / and right frame J: polyno- 
mial indexed by / and J 

• Squares (i.e. morphisms of Di) with left frame S„ and right frame S^: polynomial 
morphism, with u closing the diagram on the left and v closing the diagram on the 
right. 

We are naturally tempted to establish a connection between the double category Poly^ 
of polynomials and the double category PolyFun^ of polynomial functors. We expect the 
interpretation of polynomials to play that role, behaving, loosely speaking, as a functor 
from Poly^ to PolyFun^. To formalize that intuition, we need a notion of functor between 
double categories: 
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Definition 8 (Lax double functor ( Shulman . 2009l |. 6.1)). A lax double functor F:C — )• 
D consists of: 

• Two functors Fq : Cq — > Dq and Fi : Ci — t- Di such that L o Fi = Fq o L and 
RoFi=FqoR. 

• Two natural transformations transporting the and U functors in the expected 
way. 

Having presented the double-categorical framework, we now move on to framed bicat- 
egories. The key intuition here comes from our earlier observation: morphisms between 
indices, i.e. morphisms in Dq, induce polynomials, i.e. objects in Di. Categorically, this 
translates into a bifibrational structure on the (L, R) functor: 

Definition 9 (Framed bicategory Shulman . 2009( |). A framed bicategory is a double 
category for which the functor 



(L,i?):Di ^ Do X Do 



is a bifibration. 



We now expands this definition on a few examples, namely Polyg and PolyFuug. In 
both cases, we notice that the bifibration consists simply in taking a morphism u:I J 
and representing the reindexing functor A„ and the op-reindexing functor S„ with a 
polynomial. 



Example 12 (Framed bicategory Poly^ ( Gambino and Kock . 201ol . 3.7)). The bifibra- 
tion is therefore the endpoints functor ( [Gambino and Kockl . |2010| |. 3.10) for which the 

s f t 

cobase change of polynomial F:I i — B — > A — > J along {u,v), denoted {u,v)\F, is 




uo s 
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While the base change of G along (u, f), denoted {u,v)*G is defined as: 




As before, these definitions straightforwardly translates to operations on containers. 

Example 13 (Framed bicategory PolyFun^ ( Gambino and Kock . 201Cl( |. 3.6)). The 
fibrational structure of the framed bicategory gives rise to a transporter lift (the cartesian 
lifting of the fibration (L, i?)) and a cotransporter lift (the op-cartesian lifting of the op- 
fibration (L, R)). 

The transporter lift of (u, v) to Pq is given by: 




The cotransporter lift of (n, v) to Pp is given by: 

Pf 




Following Gambino and Kock 201Cll |. we define the base change of Pg along {u,v) by 
{u,v)*Pg = o Pq o Dually, we define the cobase change of Pp along (u, u) by 
{u,v)\Pf = o Pp o A„. 

At this stage, it should be clear that the interpretation of polynomials is more than a 
mere functor from Poly^ to PolyFun^: loosely speaking, it establishes an equivalence of 
categories. Equivalence of framed bicategory is formally defined as follow: 
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Definition 10 (Framed biequivalence ( Shulmanl . l2009l |. 7.1)). A framed equivalence 
between the framed bicategory C and D consists of: 

• Two lax double functors F:C ^ D and G:D C, and 

• Two framed natural isomorphism r]:l = G o F and e:F o G = 1 



We then recall this result of Gambino and Kockl 2010| | : 

Theorem 1 (Theorem 3.8 Gambino and Kock . 20ld |). Squares of PolyFun^ are uniquely 
represented (up to a choice of pullback) by a square of Poly Consequently, the inter- 
pretation of polynomials is a framed biequivalence. 

This theorem allows us to confound, once and for all, the category of polynomials 
Poly^ and the category of polynomial functors Poly Fung. In a sense, polynomials are a 
"small" presentation of the larger functorial objects. However, we do not lose expressive 
power by working in the small language, since both categories are equivalent. 

Earlier, we have isolated a class of cartesian morphisms. This defines a sub-category 
of polynomials, which will be of prime interest in this paper. For clarity, we expound its 
definition: 



Definition 11 (Framed bicategory Poly^g ( [Gambino and Kockl . l2010l |. 3.13)). The 
framed bicategory Poly'^g is defined with 

• Objects: sets 

• Vertical arrows: set morphisms 

• Horizontal arrows: polynomial indexed by I and J, respectively left and right 
frames 

• Squares: cartesian morphism of polynomial reindexed by u and v, respectively left 
and right frames: 



B 



A 



u 



J 



a 



K 



D 



G 



J 



L 



The interpretation functor is again an equivalence of framed bicategory between Poly'^g 
and the framed bicategory PolyFun^ ^ which morphisms of functors consists of cartesian 
natural transformations. We therefore have the following result: 

Theorem 2 (Theorem 3.13 Gambino and Kock . 20ld |). The subcategory PolyFun^ g is 
framed biequivalent to Poly^g. In particular, squares of PolyFun'^g are uniquely repre- 
sented by their diagrammatic counterpart in Poly^g. 

Thanks to this result, we can also confound the "small" category of cartesian polyno- 
mials and the category of cartesian polynomial functors. 
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data I Desc [/: Set]: Seti where |[(Z) : IDesc /)| (X : / ^ Set) : Set 

IDesc/ 9 'var(i:/) I'vanl X ^Xi 

I '1 I'll X ^ 1 

I 'n(S':SET) (r:5^IDesc/) fUSTj X ^ {s : S) ^ IT sj X 

I 'E(5':Set) (TiS-^IDesc/) I'S S Tj X ^ {s : S) x IT sj X 

idesc (/:Set) (J:Set) : Seti |(Z) : idesc / J)] (X : / ^ Set) : J Set 

idesc / J 1-^ J^IDesc/ |/)] X ^ \j.lD jj X 



Figure 1: Universe of inductive families 



2 Inductive Families in Type Theory 

In this section, we set out to establish a formal connection between a presentation 
of inductive families in type theory and the categorical model of polynomial functors. 
On the type theor e tical side, we adopt a universe-based presentation, as introduced 



by IChapman et al.l 2010(]. Working on a universe gives us a syntactic internalization 
of inductive families within type theory. Hence, we can manipulate and reason about 
inductive families from within the type theory itself. 

The original motivation for this design is generic programming: the programmer 
can compute over the structure of datatypes, or even compute new datatypes from 
old. In mathematical term, "generic programming" reads as reflection: we can reflect 
the meta-theory of inductive types within the type theory. For systems like Agda or 
Coq, we can imagine reduc i ng th eir syntactic definition to such a universe by elahora- 



Dagand and McBridd . l2013l | 



tion 

We recall the definition of the universe in Figure [TJ An I Desc code is a syntactic object 
describing a functor from Set^ to Set. To obtain this functor, we have to interpret 
the code using [_| . To describe functor from Set^ to Set"', we use the isomorphism 
[Set^Set]-^ ^ [Set^Set-']. Hence, in idesc, we pull the J-index at the front and 
therefore capture functors on slices of Set. The interpretation [[_| trivially extends to 
idesc. Inhabitants of the idesc type are called descriptions. Further definitions for the 
least fixed point and its initial algebra are left out. They will not be necessary in this 
paper. 

Definition 12 (Described functor). We identify the class of described functor with all 
functors that are isomorphic to the interpretation of some description. 



2.1 Descriptions are equivalent to polynomials 

We can now prove the equivalence between described functors and polynomial functors 
on Set. The first step is to prove that described functors are polynomial: 

Lemma 3. The class of described functors is included in the class of polynomial functors 
on Set. 

Proof. Let -F:Set// — > Set/j a described functor. 
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By definition of the class of described functor, F is naturally isomorphic to the inter- 
pretation of a description. That is, for any j: J, there is a D:\DescI such that: 

Fj = m 

By induction over D, we show that \D'\ is naturally isomorphic to a polynomial: 

Case D = '1: We have ['Ij X = lx X°, which is clearly polynomial 

Case D = 'vari: We have ['vari| X = 1 y. {X i)^, which is clearly polynomial 

Case D = '^ST: We have ['S S T\ X = {s : S) ^IT s\ X. By induction hypothesis, 
s\ X = {x:St s) ^ {p'-Pt s x) ^ X {nx sV)- Therefore, we obtain that: 

}^i:ST}X?^{s:S)x{x:STs)^{p:PTs)^X{nTsV) 

= {sx:{s:S) x St s) x {v-Pt {-ko sx){'^i sx))^X {nT{j,^,sx) p) 

This last functor being clearly polynomial. 

Case Z) = 'n 5 T: We have ['B S T\ X = {s : S) ^{T s} X. By induction hypothesis, 
s\ X = {x:St s) >^ {p'-Pt s x) ^ X (riTsP)- Therefore, we obtain that: 



I'USTjX ^ {s 
= (/ 
= (/ 



S)^{x:STs)xiP-PTsx)^X (riTsP) 
{s:S)^Sts)^{s:S){p:Pts (f s)) ^ X {ut s p) 
{s:S)^Sts)^ {sp ■■ {s : 5) X Pt s (/ «)) ^ X (ut (^^ sp) i^^i sp)) 



This last functor being clearly polynomial. 

□ 

To prove the other inclusion - that polynomials functors on Set are a subset of de- 
scribed functors - we rely on Lemma [2J To this end, we must prove some algebraic 
properties of the class of described functors, namely that they are closed under reindex- 
ing, its adjoints, and composition. To do so, the methodology is simply to code these 
operations in idesc. 

Lemma 4. Described functors are closed under reindexing and its adjoints. 
Proof. We describe the puUback functors and their adjoints by: 

DA(^f.ji^B) ■ idesc ^5 

DAf I-)- Aa. 'var (/ a) 

: idesc 5^ ZJH^j^.^^) : idesc i?^ 

L>S/ A6.'E/-UAa. 'vara DUf A&. 'E/ Aa. 'var a 

Where the inverse of a function / is represented by the following inductive type: 

data (-1) [f : A ^B]{b:B): S-ET where 
/-I (5=/ a) 9 inv(a:^) 
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It is straightforward to check that these descriptions interpret to the expected opera- 
tion on shces of Set, i.e. that we have: 

□ 

Lemma 5. Described functors are closed under composition. 

Proof. We define composition of descriptions by: 

{D:\descC B)ojj {E:\descB A) : idesc C ^ 
D oo E ^-T' 7\c. compose (D c) E 

where 



compose 


(D:IDesc5) 


{E:\descB A) 




IDesc^ 






compose 


('var6) 


E 




E b 






compose 


'1 


E 




'1 






compose 


{'US T) 


E 




mS\s. 


compose (T 


s) E 


compose 


T) 


E 




'^S\s. 


compose (T 


s) E 



It is then straightforward to check that this is indeed computing the composition of 
the functors, i.e. that we have: 

iDo^Ej^lDjolEj 

□ 

Lemma 6. The class of polynomial functors is included in the class of described functors. 

Proof. Described functors are closed under reindexing, its left and right adjoint (LemmaH]), 
are closed under composition (Lemma [5]) and are defined up to natural isomorphism. 
By Lemma [21 the class of polynomial functors is the least such set. Therefore, the class 
of polynomial functor is included in the class of described functors. 

□ 

We can therefore conclude with the desired equivalence: 

Proposition 1. The class of described functors corresponds exactly to the class of poly- 
nomial functors. 

Proof. By Lemma ([3]) and Lemma ([6]), we have both inclusions. 

□ 

The benefit of this more algebraic approach is its fiexibility with respect to the universe 
definition: for practical purposes, we are likely to introduce new IDesc codes. However, 
the implementation of reindexing and its adjoints will remain unchanged. Only com- 
position would need to be verified. Besides, these operations are useful in practice, so 
we would implement them anyway. In the rest of this paper, we shall confiate descrip- 
tions, polynomials, and polynomial functors, silently switching from one presentation to 
another as we see fit. 
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2.2 An alternative proof 



An alternative approach, taken by iMorrisI 2007l | for example, consists in reducing these 



codes to indexed W-types. We thus obtain the equivalence to polynomial functors, re- 
lying on the fact that polynomial functors are a model of indexed W-types. This less 
algebraic approach is more constructive. However, to be absolutely formal, it calls for 
proving some rather painful (extensional) equalities. If the proofs are laborious, the 
translation itself is not devoid of interest. In particular, it gives an intuition of descrip- 
tions in terms of shape, position and indices. This slightly more abstract understanding 
of our universe will be useful in this paper, and is useful in general when reasoning about 
datatypes. 

We formalize the translation in Figure [2l mapping descriptions to containers. The 
message to take away from that translation is which code contributes to which part of 
the container, i.e. shape, position, and/or index. Crucially, the '1 and 'S codes contribute 
only to the shape. The 'var and '11 codes, on the other hand, contribute to the position. 
Finally, the 'var code is singly defining the next index. 

The inverse translation is otherwise trivial and given here for the sake of completeness: 

((/5:ICont/ : idesc/0 

{S P)-i 'S 5 As/i. 'n (P sh) Xps. 'var (n ps) 

We are left to prove that these translations are indeed inverse of each other: while this 
proof is extremely tedious to carry formally, it should be intuitively straightforward. We 
therefore assume the following lemma: 

Lemma 7 (Described functors to polynomials, alternatively). (_) is essentially surjec- 
tive. 



2.3 Discussion 

The categorically minded reader might be tempted to look for an equivalence of category 
at this stage. However, we have not yet introduced any notion of morphism between 
descriptions. What we have established so far is a lowly "set theoretic" equivalence 
between the class of descriptions and the class of polynomial functors. In term of equiv- 
alence of categories, we have merely established that the object part of a functor, yet 
to be determined, maps descriptions to polynomial functors in an essentially surjective 
way. We shall complete this construction in the following section. We will set up de- 
scriptions in a double category with ornaments as morphisms. The translation (_) will 
then functorially map this category to the category of cartesian containers. 

Let us reflect on the result obtained in this section. By establishing an equivalence 
between descriptions - a programming artifact - and polynomial functors - a mathe- 
matical object - we connect software to mathematics, and conversely. On the one hand, 
descriptions are suitable for practical purposes: they are a syntactic objects, fairly in- 
tensional, and can therefore be conveniently manipulated by a computer. Polynomial 
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{{D:\descIO)) : ICont/0 



(D) (Ao. Shape D o) <|(^'"- '"^^^ °) (As/i. Pos {D o) s/i) 



where 



Shape (/):IDesc/) : Set 

Shape 'var i i— >■ 1 

Shape '1 1-^1 

Shape 'UST i-^ (s : 5) ^ Shape ( T s) 

Shape 'EST i-> (s:^) x Shape(r s) 



Pos (D:\DescI) (s/i : Shape D) 



Set 



Pos 'var i * 

Pos '1 * 

Pos 'US T f 

Pos 'EST 



M> 1 



1H> 



1-^ (s-.s) X Pos(rs) (/ S) 
Pos(r s) t 



Index {D : IDesc /) (ps : Pos D sh) 



I 



Index 'var i * 



n- Index (T s) ps 
Index (T s) ps 



Index 'nST (s,ps) 
Index 'T.ST ps 



Figure 2: From descriptions to containers 



functors, on the other hand, are fit for theoretical work: they admit a diagrammatic 
presentation and are defined extensionahy, up to natural isomorphism. 

Better still, we have introduced containers as a middle ground between these two 
presentations. Containers can be understood as an incarnation of polynomials in the 
internal language Set. Reasoning extensionahy about them is equivalent to reasoning 
about polynomials. Nonetheless, they are also a rather effective type theoretic object: 
we can actually implement them in an intuitionistic type theory such as 

We shall traverse this bridge between software and mathematics in both directions. 
Going from software to mathematics, we hope to gain a deeper understanding of our 
constructions. Case in point is generic programming in type theory: we develop many 
constructions over datatypes, such as ornaments, but the justification for these is of- 
ten extremely operational, one might even say "ad-hoc". By putting our polynomial 
glasses on, we can finally see through the syntax and understand the structure behind 
these definitions. Conversely, going from mathematics to software, we translate mathe- 
matical structures to new software constructions. The theory of polynomial functors is 
indeed well developed. Most programming examples presented in this paper - such as 
derivatives or ornaments - were first presented in the polynomial functor literature. Be- 
sides, by exploring the structure of polynomial functors, we discover new and interesting 
programming idioms ~ such as the pullback and composition of ornaments. 



'^Such an implementation is available on the website of the first author. 
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data Orn {D -ADesc K)[u: I ^ K]:SeTi where 



- Extend with S: 
Orn D u 9 

- Refine index: 
Orn ('var^') u B 

- Copy the original: 
Orn '1 u 9 
Orn ('n ST)?* 9 
Orn^ESTju 9 

- Delete S: 



insert (5 : SET)(i3+ : 5 ^ Orn i? 



'var {i:u ^ k) 



'1 

'n(r^ 



■.{s:S)- 



>Orn (r s) u) 
•Orn (r s) m) 



|(0:OrnD!i)]orn 
[insert 5 D+lorn 
I'var (inv i)]orn 

I'n T+U 

[delete replace T+J 



delete (replace : S')( r+ : Orn ( T replace) 
(a) Ornaments: Code 



: IDesc/ 

^ 'ES As. |[Z)+ 
^->- 'var I 

'1 

'ns As. IT+ 
^ 'T,S\s. It+ 
M- replace] 



-^Jjorn 
-5 orn 



(b) Ornaments: Interpretation 



Figure 3: Universe of ornaments 



3 A Categorical Treatment of Ornaments 

The motivation for ornaments comes for the frequent need, when using dependent types, 
to relate datatypes that share the same structure. In this setting, ornaments play the 
role of an organization principle. Intuitively, an ornament is the combination of two 
constructions: it might extend the shape of a datatype, and/or refine its indexing. By 
extending a datatype, we introduce more information, thus enriching its logical content. 
A typical example of such an ornament is the one taking natural numbers to lists: 

data Nat : Set where data List [A : Set] : Set where 

HI _ List-Orn . . .. 

Nat 3 => List^ B ml 

I sue (n: Nat) | cons {a: A) {as :L\st a) 

By refining the indices of a datatype, we make it logically more discriminating. For 
example, we can ornament natural numbers to the datatype of finite sets: 

data Nat : Set where data Fin (n : Nat) : Set where 

Nat 9 Fin (n = sucn') 9 fO(n':Nat) 

I sue (n: Nat) | fsuc (n' : Nat)(/n : Fin n') 

This latter datatype can be thought of as a number together with a proof that it is 
bounded by its index. 



3.1 Ornaments 



We recall the definition of the universe of ornaments in Figure [3l While this universe is 
defined on IDesc -R', i.e. functors from Set/^ to Set, it readily generalizes to endofunc- 
tors on slices, i.e. idescK L: 



om{D:\descK L){u:I-^K){v:J-^L) : Seti 
orn D u V i— )■ {j :J) ^ Orn {D {v j)) u 



[(o:orn D u u)]om 

[olorn ^ Aj. [oil 



idesc/ J 



A det ailed acco i int of ornaments from a prograrn mer's perspective will be found else- 
where iMcBridd . [20131 . iDagand and McBridd . l2012l |. For the purpose of this paper, these 
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definitions are enough. We shall refer to the the aforementioned papers when concepts 
developed there reappear in our categorical framework. 

Relating the definition of ornament with our polynomial reading of descriptions, we 
make the following remarks. Firstly, the ornament code lets us only insert or delete 
'S codes while forbidding deletion or insertion of either '11 or 'var codes. In terms of 
polynomial, this translates to: shape can be extended, while position must be kept the 
same. Secondly, on the 'var case, the ornament code lets us pick any index in the inverse 
image of a reindexing. In terms of polynomial, this corresponds to a commuting square: 
the ornamented indexing must be equivalent to applying the reindexing after the initial 
indexing. This is the coherence condition of container morphism. We have just described 
a cartesian morphism of polynomials! 

3.2 Ornaments are cartesian morphisms 

We shall now formalize this argument by proving the following isomorphism: 

Lemma 8. Ornaments describe cartesian morphisms between polynomial functors, i.e. 
we have the isomorphism 

ornD ^ Poly''^{.,D) 

In terms of cartesian morphism, extending the shape translates to the pullback of 
shapes, therefore enforcing that the set of positions, i.e. the structure, of the datatype 
remain the same. The refinement of indices corresponds to the frame morphisms com- 
muting. 

Proof. We develop the proof on the container presentation: this lets us work in type 
theory, where is anchored the definition of ornaments. It is a necessary hardship, since 
no other decent model of ornaments is available to us. After this bootstrapping process, 
we shall have the abstract tools necessary to lift off type theory. 

The first half of the isomorphism consists of mapping an ornament o of a description D 
to a cartesian morphism from the container described by [[o|orn to the container described 
by D. By definition of cartesian morphisms, we simply have to give a map from the shape 
of [[ojorn to the shape of D: 

(Pio-.omDuv) : {loU.)^'{D) 

V 

(j) o ^ {Xi. forget o {u i)) <^ where 



forget {0:OmDu) 


(s/i: Shape lOJorn) 




Shape D 




forget '1 


* 




* 




forget ('n r+) 


/ 




Aa. forget (r+ a) 


if a 


forget ('S T+) 


(a, sh) 


I-)- 


(a, forget (r+ a) 


sh) 


forget ('var(invj)) 


* 


I-)- 


* 




forget (insert a D'^) 


(a, sh) 


1-^ 


forget (£)+ a) sh 




forget (delete replace 0) 


sh 


1-^ 


(replace, forget 


sh) 



We are then left to check that (extensionally) the set of positions is constructed by 
pullback and the indexing is coherent. This is indeed the case, even though proving it 
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in type theory is cumbersome. On positions, the ornament does not introduce or delete 
any new '11 or 'var: hence the set of position is left unchanged. On indices, we rely on 
k to ensure that the more precise indexing is coherent by construction. 
In the other direction, we are given a cartesian morphism from F to G. We return 
an ornament of the description of G. For the isomorphism to hold, this ornament must 
interpret to the description of F: 

^j^m-.F^^G) : om (G)-^ u v 

ijj (forget ^ Xj. ^TiXsh. insert (forget ~^ sh) \ext. 'IIAps. 'var (inv {np ps)) 

Indeed, the description of G is a 'S of its shape, followed by a '11 of its positions, 
terminated by a 'var at the next index. To ornament G to -F, we simply have to insert 
the inverse image of forget, i.e. the information that extends G to F. As for the next 
index, we can legitimately use -F's indexing function: the coherence condition of the 
cartesian morphism ensures that it is indeed in the inverse image of the reindexing 
function. 

Having carefully crafted the definition of and ip, it should be obvious that these 
functions are inverse of each other. It is sadly not that obvious to an (intentional) 
theorem prover. Hence, we will not attempt to prove it in type theory here. 

□ 



Relation with orna menta l algebras (Mc Bride . 2013 |: To introduce the notion of "or 



namental algebra" , iMcBride [2013,] implements an erase helper function from the inter- 



pretation of an ornament to the original datatype. This actually corresponds to our 
transformation 0, followed by the interpretation of the resulting cartesian morphism. 
The erase function given in that paper is indeed natural and cartesian. 

In the previous section, we have established a connection between descriptions and 
polynomials. We have now established a connection between ornaments and cartesian 
morphisms of polynomials. It thus makes sense to organize descriptions in a framed 
bicategory IDesc^: 

Definition 13 (Framed bicategory IDesc'^). The framed bicategory IDesc'^ is defined 
by: 

• Objects: sets 

• Vertical morphisms: set morphisms 

• Horizontal morphisms: descriptions 



Squares: a square from to D is an ornament o oi D that interprets to (a code 
isomorphic to) 
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3.3 A framed biequivalence 



We are now ready to establish an equivalence of category between IDesc'^ and PolyFurf^, 
thus completing our journey from the type theoretical definition of ornament to its model 
as cartesian morphisms. 

Theorem 3. The framed bicategory of cartesian described functors is framed biequivalent 
to PolyFun'^g. 

Proof. As for the proof of LemmaO we work from IDesc'^ to ICont to prove this theorem. 
Since ICont is equivalent to PolyFun'^ ^, this gives the desired result. To prove a framed 
biequivalence, we need a functor on the base category and another on the total category. 
In this particular case, both base categories are Set: we shall therefore take the iden- 
tity functor, hence trivializing the natural isomorphisms on composition, identity, and 
frames. 

On the total category, we prove the equivalence by exhibiting a full and faithful functor 
from IDesc to ICont that is essentially surjective on objects. Unsurprisingly, this functor 
is defined on objects by (_), which is indeed essentially surjective by Lemma [71 The 
morphism part is defined by 0, which is full and faithful by Lemma [8j 

□ 

We have therefore established the following equivalences of framed bicategories: 

IDesc'^ <r ^ Poly'^^ < > PolyFun'^^ 

ICont 



We should now freely conflate the notions of ornament, cartesian morphism, and carte- 
sian natural transformation. We shall use whichever notion is most convenient for the 
task at hand. In particular, we can now transfer tools from the mathematical side of 
polynomials to the programming side of ornaments. We show a few example of such 
"technological transfer" in the following section, but we suspect that plenty is still left 
to discover. 



4 Tapping into the categorical structure 

In the previous section, we have categorically characterized the notion of ornament 
in terms of cart esian morphism . Using this abstraction, we look at the ornamental 



constructions of iMcBridd |2013l ] - such as the ornamental algebra and the algebraic 
ornament - and rephrase them in our categorical framework. Doing so, we extract the 
structure governing their type theoretical definition and thus gain a finer understanding. 

Next, we study the categorical structure of cartesian morphisms and extract novel and 
interesting ornamental constructions. We shall see how the identity, composition, and 
frame reindexing translates into ornaments. We shall also be interested in pullbacks in 
the category PolyFun^ ^ and the functoriality of the derivative in that category. 
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4.1 Ornamental algebra 

As remarked in the previous section, the erase function that helps implementing the 
ornamental algebra corresponds exactly to the interpretation of the cartesian morphism 
described by the ornament. The ornamental algebra is thus a simple corollary of the 
very definition of ornaments as cartesian morphisms. 

u 

Corollary 1 (Ornamental algebra). From an ornament a : F =^'^ G, we obtain the 

V 

ornamental algebra o-forgetAlg: F (fiG o v) ^ fiG o u. 

Proof. We apply the natural transformation o at fiG and post-composing by in: 
o-forgetAlg : F {^G o v) (G /xG) o u nG o u 

□ 

Example 14 (Ornamental algebra of the List ornament). Let us look at the ornamental 
algebra induced by the ornamentation of Nat to List^i. The cartesian morphism from list 
to natural numbers (Example [9|) naturally maps the nil constructor to 0, while the cons 
constructor is mapped to sue. Post-composing by in, we obtain a natural number: the 
length of the list. 



4.2 Algebraic ornaments 



The notion of algebraic ornament was initially introduced bv lMcBridd 2013 1. A similar 



catego rical construction, defined for any functor, was also presented by lAtkev et al. 



2012| |. In this section, we reconcile these two works and show that, for a polynomial 



functor, the refinement functor can itself be internalized as a polynomial functor. 



Definition 14 (Refinement functor ( Atkev et al.l . l2012l |. 4.3)). Let F an endofunctor 



on Let (X if//, a: FX — t- X) an algebra over F. 
The refinement functor is defined by: 



F' 



a A 



F:{£/j 



>/x 



{£/i 



'/X 



Where F - the lifting of F [Hermida and Jacobd . Il998l . iFumexl . l2012l | - is taken, in an 
LCCC, to be the morphism part of the functor F. 

When F is a polynomial functor, we show that the refinement functor can be internal- 
ized a nd presented as an ornament of F. This should not come as a surprise: iMcBride 
20131 ] introduced algebraic ornaments as ornamentations of the initial description. The 



following theorem abstracts the original definition: 

Theorem 4. Let F a polynomial endofunctor indexed by /. Let {X, a) an algebra over 
Pp, i.e. a-.PpX — )■ X. 

The refinement functor Pp°^ = o Pp is a polynomial functor that ornaments F. 
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Proof. To show that Pp" is a polymonial ornamenting F, we exhibit a cartesian natural 
transformation from Pp" to Pp. Since Pp is polynomial, we get that Pp" is polynomial 
by Lemma [TJ 

First, there is a cartesian natural transformation from the lifting Pp to Pp. Indeed, 
for an LCCC, the lifting consists of the morphism part of Pp, or put explicitly: 



/PpX 



Where \a denotes the map from A to the terminal object, here used in the slice categories. 
We therefore have the following cartesian natural transformation: 



£ 



Pf 



A, 



-/I 



£ 



-/I 



£/i = (^//)/id 



'/PfX 



£ 



Pf 



£ 



There is also a cartesian morphism from Sq, to the identity polynomial indexed by J: 



£ 



/■£,Pp X 



'/PfX 



{£/l) 



IX = £/^<x 



£ 



'/I = (^//)/id 



By horizontal composition of these two cartesian natural transformations, we obtain 
a cartesian natural transformation from Pp" to id o Pp = Pp. 

□ 

Categorically, algebraic ornaments are characterized by the following property: 
Theorem 5 (Coherence property of algebraic ornament (At key et al. . 2012]). The fix- 



point of the algebraic ornament of Pp by a satisfies the following isomorphism: 

fiPp^^^^^lfiF 

Where l:£/i [£/j,£/j], the terminal object functor, maps objects X to idx- 
Informally, using a set theoretic notation, this isomorphisms reads as: 

fiF'^ix^ {t:fiFi\(la\it = x} 



Proof. This is a simple application of Theorem 4.6 Atkev et al. . 2012l |. specializing this 
theorem to the codomain fibration (i.e. an LCCC). 



□ 
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Prom a type theore tical perspective, t his theorem has a few interesting consequences. 
First, as remarked by Atkev et al. 20121 ] . this bridges the gap between refinement types 
and inductive famihes. Besides, from an algebraic predicate over an inductive type, we 
obtain an effective procedure to reify this predicate as an inductive family. 

Another consequence of this theorem is its computational interpretati on. Cross i ng th e 
isomorphism from left to right, we obtain the Recomputation theorem of lMcBridd 2013l |. 
Prom right to left, we obtain the remember function. 



4.3 Categorical structures 

Identity: A trivial ornament construction is the identity ornament, defined for every 
polynomial. Indeed, for every polynomial, there is a cartesian morphism from and to 
itself, introducing no extension and no refinement. In terms of Orn code, this construction 
simply consists in copying the code of the description considered: this can be described 
as a generic program, taking a description as input and returning the identity ornament. 



Vertical composition: The next structure of interest is composition. Recall that an 
ornament corresponds to a cartesian natural transformation. There are therefore two 
notions of composition. Pirst, vertical composition lets us collapse chains of ornaments: 

P++ P++ 




Example 15 (Vertical composition of ornaments). We have seen that List ornaments 
Nat. We also know that Vec ornaments List. By vertical composition, we thus obtain 
that Vec ornaments Nat. 



Horizontal composition: Turning to horizontal composition, we have the following 
identity: 




Example 16 (Horizontal composition of ornaments). Let us consider the following 
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polynomials: 



PList^ = X^I + A-kX: Set/i ^ Set/i 

PVec^ = X ^ {n = 0\ n e Nat} + ^ x | n G Nat*} : Set /Nat ^ Set /Nat 

Square = X i-^ X x X : Set /^ Set /^ 

Height = X {Xn X | n € Nat} + {X„ x X„ | n e Nat}:SET/Nat SET/Nat 

It is easy to check that PVecA ornaments PList^i and Height ornaments Square. By 
horizontal composition of these ornaments, we obtain that PVec^i o Height - describing 
a balanced binary tree - is an ornament of P List a o Square - describing a binary tree. 
Thus, balanced binary trees ornament binary trees. 

Frame structure: Finally, the frame structure of the bicategory lets us lift morphisms 
on indices to polynomials. 

Example 17 (Reindexing ornament). Let twice: Nat — >• Even, the function that multi- 
plies its input by 2. The Vec polynomial is indexed by Nat: we can therefore reindex 
it with twice. We automatically obtain an ornament of Vec that is indexed by Even. 
Needless to say, this construction is not very interesting on its own. However, in a larger 
development, we can imagine retrofitting an indexed datatype to use another index, 
making it usable by a library function. 

4.4 Fullback of ornaments 

So far, we have merely exploited the fact that PolyFurf ^ is a framed bicategory. However, 
it has a much richer structure. That extra structure can in turn be translated into 
ornamental constructions. We shall focus our attention on the case of pullbacks, but we 
expect many other categorical object to be of programming interest. 

Theorem 6. The category PolyFurfg is puUback complete. 

Proof. First, let us recall that the notion of cartesian morphism arises from the fact that 
the following functor is a fibration: 

[£/!,£/ j] 
_i 

Where cartesian natural transformation corresponds to the cartesian morphisms of that 
fibration. 

Let (p '■ H and V '■ G H two cartesian natural transformation. They are 

projected to 4)i and Vi in the base category. Since Ejj is pullback complete, we can 
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construct the pullback of 0i and ipi , thus obtaining the fohowing pullback square: 

4 



J 



Gl 



Fl 



HI 



By reindexing, we thus obtain the following square in the total category: 



FX 



'X 

GX 



^X 



HX 



By Exercise 1.4.4 [.Tacobsl . [ioOll l . we have that this square is actually a pullback. 



□ 



Example 18 (Pullback of ornament). Natural numbers can be ornamented to lists: 



data Nat: Set where 
Nat 3 

I sue (n: Nat) 



List-Orn 



data List [A : Set] : Set where 

List^ 9 nil 

I cons (a :^)( as : List yi) 



As well as finite sets: 

data Nat: Set where 
Nat 9 

I sue (n: Nat) 



data Fin (n : Nat) : Set where 
■"'"z^^" Fin (n = sue n') 9 fO (n' : Nat) 

I fsuc(n':Nat)(/n:Fin n') 



Taking the pullback of these two ornaments, we obtain bounded lists: 

data BoundedList [y4:SET](n:Nat):SET where 
BoundedListyi (n = sue n') 3 nil (n': Nat) 

I eons (n' : Nat)(a : A){as : BoundedList^ n') 

That represents lists of bounded length, with the bound given by the index n. 
4.5 Derivative of ornament 



AbbottI 2003l | have shown that the Zipper [Huetl . Il997l | data-structure can automatically 
be built from the derivative of datatype we are interested in. Interestingly, the derivative 
can be characterized by the existence of a universal arrow in the category Pol-jf^: 
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Definition 15 (Differentiability ( Abbott . 2003l |. Cfiapter 6)). A polynomial F is dif- 
ferentiable in i if and only if, for any polynomial G, we have the following bijection of 
morphisms: 

PolfsiG X7ri,F) 
Polf^{G,diF) 

Where t^^ I ^ I ^ I ^ L 

We denote Poly^' the class of polynomials differentiable in i. 

Theorem 7. Let F and G two polynomials in Poly'^£ . 
If F ornaments G, then diF ornaments diG. 

Proof. The proof simply follows from the functoriality of di over Polyl' r |Abbottl . [2003| . 
Section 6.4). In a nutshell, this follows from the existence of the following cartesian 
morphism: 

d^F XTTi^^ F ^^G 

where the first component is the unit of the universal arrow while the second component 
is the ornament from F to G. By definition of differentiability, we therefore have the 
desired cartesian morphism: 

diF -^^ diG 

□ 

Example 19 (Ornamentation of derivative). The zipper, and therefore the derivative, is 
of practical interest on tree-like structures. Let us consider binary trees, with signature 
functor 1 + ^ X . Balanced binary trees are an ornamentation of binary trees (simply 
refining the indexing). By the theorem above, we have that the derivative of balanced 
binary trees is an ornament of the derivative of binary trees. 



5 Related work 



Ornaments were initially introduced by iMcBridd 20131 ] in a purely type theoretical 
framework. By working in type theory, the author had to resort to a very syntactic 
characterization of ornaments, hence hindering the principles governing its design. Be- 
sides, by construction, this definitio n is strongly tied to the uni verse of datatypes it 
operates on. In a subsequent paper jPagand and McBridel . I2ni2l |. the authors had to 
introduce yet another definition of ornaments to account for a different coding system. 

We can also feel the limitation of the type-theoretic approach in the construction of 
algebraic ornaments: being syntactic, it is also rather tedious and, again, the intuition 
behind that construction is hindered by irrelevant operational concerns. Overall, this 
syntactic approach makes it difficult to understand the essence of ornaments. As a result, 
it focuses on the computational content of ornaments. 



The notion of algebraic ornament was also treated categorically bv lAtkev et al.l 2012l |: 



instead of focusing on a special class of functors, the authors described the refinement of 
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any functor by any algebra. The constructions are presented in the generic framework 
of fibrations. The refinement construction described in this paper, once speciahzed to 
polynomial functors, corresponds exactly to the notion of algebraic ornament, as we have 
shown. 

Finally, it is an interesting coincidence that cartesian morphisms should play such an 
important role in structuring ornaments. Indeed, the work on containe rs - the type theo- 
retica l pendant of polynomials - stems from the work on shapely types Jav and Cockettl . 



1994i |. In the shape framework, a few base datatypes were provided (such as natural 



numbers) and all the other datatypes were grown from these basic blocks by a pullback 
construction, i.e. an ornament. However, this framework was simply typed, hence no 
indexing was at play. 



6 Conclusion 

Our study of ornaments began with the equivalence between our universe of descriptions 
and polynomial functors. This necessary first step lets us take a step away from the 
syntactic peculiarities of type theory, and access the abstract machinery provided by 
polynomials. Hence, the type theoretic definition of our universe is very likely to change 
in the future, to account for pragmatical reasons. However, whichever precise definition 
we choose, it shall always be faithfully modeled by polynomial functors. We thus get a 
access to a steady source of mathematical results that instruct us about the structure of 
our software. 

We then gave a categorical presentation of ornaments. Doing so, we get to the essence 
of ornaments: ornamenting a datatype consists in extending it with new information, 
and refining its indices. Formally, this characterization turns into an abstract and dia- 
grammatic representation of ornaments as cartesian morphisms of polynomials. Having 
such an abstract understanding of ornaments, we are thus able to explore this new design 
space. 

Finally, we reported some initial results of our explorations. We have translated 
the type theoretic ornamental toolkit to the categorical framework. Doing so, we have 
gained a deeper understanding of the original definitions. Then, we have expressed the 
categorical definition of Polifg in terms of ornaments, discovering new constructions - 
identity, vertical composition, horizontal composition, and reindexing of ornaments ~ in 
the process. Last but not least, we have studied the structure of Poly^g, obtaining the 
notion of pullback of ornaments and derivative of ornaments. 



Future work We have barely scratched the surface of Poly'^^: a lot of structure re- 
mains unexplored and unexploited. Pursuing this exploration might lead to novel and 
interesting ornamental constructions. 

Also, our definition of ornaments in terms of polynomials might be limiting. One can 
wonder if a more abstract criterion could be found for a class of functors that would not 
be restricted to polynomials. For instance, the functor _ Ic : [C, D] — )■ D is a fibration 
for D pullback complete and C equipped with a terminal object Ic. Specialized to the 
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categories of slices of f , the cartesian morphisms are exactly our ornaments. What about 
the general case? 



Fin ally, there has been much work recently on homotopy inductive types [Awodev et al. 



2012l |. Coincidentally, the formalism used in these works is based on W-types, i.e. the 



type theoretic incarnation of polynomial functors. It would be there be interesting to 
study what ornaments could express in this framework. 
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